home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / PROGRAMM / DB_CLIPP / 0769A.ZIP / DBLASERF.PRG < prev    next >
Text File  |  1987-01-08  |  3KB  |  45 lines
  1. *****************************************************************
  2. * PROGRAM FONT_F                         PUBLIC DOMAIN SOFTWARE *
  3. *                                                               *
  4. * This program creates memory variables to contain the printer  *
  5. * control strings used to invoke the fonts available on the     *
  6. * Laserjet font cartridge HP 92286F (TMS Proportional 2).       *
  7. * These fonts are:                                              *
  8. *                                                               *
  9. * VARIABLE    FONT NAME           CHARACTERISTICS               *
  10. * courier_p   Courier 10          portrait, native to Laserjet  *
  11. * courier_l   Courier 10          landscape, native to Laserjet *
  12. * large       Helvetica bold      prop, 14.4 point, portrait    *
  13. * roman       Times Roman medium  prop, 10 point, portrait      *
  14. * italic      Times Roman italic  prop, 10 point, portrait      *
  15. * bold        Times Roman bold    prop, 10 point, portrait      *
  16. * small       Times Roman medium  prop, 8 point, portrait       *
  17. * linepr      Line Printer medium 16.66 chars/inch, portrait    *
  18. *                                                               *
  19. * To use the font when printing from dBase, call this program   *        
  20. * to set up the strings, then include the variables in your     *
  21. * print statements.                                             *
  22. * For example, @ 10,10 say bold + 'DBASE USER GROUP' + roman    *
  23. * will print the words DBASE USER GROUP in Times Roman bold.    *
  24. *****************************************************************
  25. * AUTHOR: Barbara Moss                           DATE: 8-JAN-87 *
  26. *****************************************************************
  27. * This program may be copied freely, and altered to suit your   *
  28. * own requirements.  It may not be sold for profit.             *
  29. *****************************************************************
  30. public courier_l, roman, bold, italic, courier_p, large, small, linepr
  31. escape = chr(27)
  32. portrait = escape+'&l0O'
  33. landscape = escape+'&l1O'
  34. fullset = escape+'(8U'
  35. roman =    portrait+fullset+escape+'(s1p10v0s0b5T'
  36. bold =     portrait+fullset+escape+'(s1p10v0s3b5T'
  37. italic =   portrait+fullset+escape+'(s1p10v1s0b5T'
  38. courier_p= portrait+fullset+escape+'(s0p10h12v0s0b3T'
  39. courier_l=landscape+fullset+escape+'(s0p10h12v0s0b3T'
  40. large =    portrait+fullset+escape+'(s1p14.4v0s3b4T'
  41. small =    portrait+fullset+escape+'(s1p8v0s0b5T'
  42. linepr =   portrait+fullset+escape+'(s0p16.66h8.5v0s0b0T'
  43. return
  44.  
  45.